/ BBS in a Box 22 / AMUG_22-4.ISO / Files IV / Prog / T / TinyTools-2.sit / TinyTools / U64.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 55 36 34 2e 63 00 | 00 00 00 00 00 00 00 00 |..U64.c.|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 06 0e 00 | 00 01 ac b0 5f 90 e0 b0 |........|...._...|
|00000060| 5f 90 e0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |_.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 42 43 00 00 |........|....BC..|
|00000080| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 54 79 70 65 73 |.#includ|e <Types|
|00000090| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 54 69 |.h>.#inc|lude <Ti|
|000000a0| 6d 65 72 2e 68 3e 0d 0d | 2f 2a 20 74 72 61 6e 73 |mer.h>..|/* trans|
|000000b0| 6c 61 74 69 6f 6e 20 72 | 6f 75 74 69 6e 65 73 20 |lation r|outines |
|000000c0| 66 6f 72 20 36 34 20 62 | 69 74 20 69 6e 74 65 67 |for 64 b|it integ|
|000000d0| 65 72 20 6e 75 6d 62 65 | 72 73 2e 20 20 6c 6f 6e |er numbe|rs.  lon|
|000000e0| 67 20 64 6f 75 62 6c 65 | 0d 09 70 72 6f 76 69 64 |g double|..provid|
|000000f0| 65 73 20 61 74 20 6c 65 | 61 73 74 20 36 34 20 62 |es at le|ast 64 b|
|00000100| 69 74 73 20 6f 66 20 70 | 72 65 63 69 73 69 6f 6e |its of p|recision|
|00000110| 20 6f 6e 20 61 6c 6c 20 | 6d 61 63 68 69 6e 65 73 | on all |machines|
|00000120| 2e 0d 09 43 6f 70 79 72 | 69 67 68 74 20 28 63 29 |...Copyr|ight (c)|
|00000130| 20 31 39 39 37 20 62 79 | 20 4a 6f 68 6e 20 4d 6f | 1997 by| John Mo|
|00000140| 6e 74 62 72 69 61 6e 64 | 2e 20 20 41 6c 6c 20 52 |ntbriand|.  All R|
|00000150| 69 67 68 74 73 20 52 65 | 73 65 72 76 65 64 2e 0d |ights Re|served..|
|00000160| 09 50 65 72 6d 69 73 73 | 69 6f 6e 20 67 72 61 6e |.Permiss|ion gran|
|00000170| 74 65 64 20 66 6f 72 20 | 70 75 62 6c 69 63 20 75 |ted for |public u|
|00000180| 73 65 2e 0d 09 44 69 73 | 74 72 69 62 75 74 65 20 |se...Dis|tribute |
|00000190| 66 72 65 65 6c 79 20 69 | 6e 20 61 72 65 61 73 20 |freely i|n areas |
|000001a0| 77 68 65 72 65 20 74 68 | 65 20 6c 61 77 73 20 6f |where th|e laws o|
|000001b0| 66 20 63 6f 70 79 72 69 | 67 68 74 20 61 70 70 6c |f copyri|ght appl|
|000001c0| 79 2e 0d 09 55 53 45 20 | 41 54 20 59 4f 55 52 20 |y...USE |AT YOUR |
|000001d0| 4f 57 4e 20 52 49 53 4b | 2e 0d 09 44 4f 20 4e 4f |OWN RISK|...DO NO|
|000001e0| 54 20 44 49 53 54 52 49 | 42 55 54 45 20 4d 4f 44 |T DISTRI|BUTE MOD|
|000001f0| 49 46 49 45 44 20 43 4f | 50 49 45 53 2e 0d 09 43 |IFIED CO|PIES...C|
|00000200| 6f 6d 6d 65 6e 74 73 2f | 71 75 65 73 74 69 6f 6e |omments/|question|
|00000210| 73 2f 70 6f 73 74 63 61 | 72 64 73 20 74 6f 20 74 |s/postca|rds to t|
|00000220| 68 65 20 61 75 74 68 6f | 72 20 61 74 20 74 68 65 |he autho|r at the|
|00000230| 20 61 64 64 72 65 73 73 | 3a 0d 09 09 4a 6f 68 6e | address|:...John|
|00000240| 20 4d 6f 6e 74 62 72 69 | 61 6e 64 0d 09 09 50 2e | Montbri|and...P.|
|00000250| 4f 2e 20 42 6f 78 2e 20 | 31 31 33 33 0d 09 09 53 |O. Box. |1133...S|
|00000260| 61 73 6b 61 74 6f 6f 6e | 20 53 61 73 6b 61 74 63 |askatoon| Saskatc|
|00000270| 68 65 77 61 6e 20 43 61 | 6e 61 64 61 0d 09 09 53 |hewan Ca|nada...S|
|00000280| 37 4b 20 33 4e 32 0d 09 | 6f 72 20 62 79 20 65 6d |7K 3N2..|or by em|
|00000290| 61 69 6c 20 61 74 3a 0d | 09 09 74 69 6e 79 6a 6f |ail at:.|..tinyjo|
|000002a0| 68 6e 40 73 6b 2e 73 79 | 6d 70 61 74 69 63 6f 2e |hn@sk.sy|mpatico.|
|000002b0| 63 61 0d 09 49 66 20 79 | 6f 75 20 77 6f 75 6c 64 |ca..If y|ou would|
|000002c0| 20 6c 69 6b 65 20 74 6f | 20 68 61 76 65 3a 0d 09 | like to| have:..|
|000002d0| 09 74 65 63 68 6e 69 63 | 61 6c 20 73 75 70 70 6f |.technic|al suppo|
|000002e0| 72 74 20 72 65 67 61 72 | 64 69 6e 67 20 74 68 69 |rt regar|ding thi|
|000002f0| 73 20 66 69 6c 65 2c 20 | 73 65 6e 64 20 61 20 70 |s file, |send a p|
|00000300| 6f 73 74 63 61 72 64 2e | 0d 09 73 65 65 20 61 6c |ostcard.|..see al|
|00000310| 73 6f 3a 0d 09 09 68 74 | 74 70 3a 2f 2f 77 77 77 |so:...ht|tp://www|
|00000320| 33 2e 73 6b 2e 73 79 6d | 70 61 74 69 63 6f 2e 63 |3.sk.sym|patico.c|
|00000330| 61 2f 74 69 6e 79 6a 6f | 68 6e 0d 2a 2f 0d 09 0d |a/tinyjo|hn.*/...|
|00000340| 74 79 70 65 64 65 66 20 | 73 74 72 75 63 74 20 7b |typedef |struct {|
|00000350| 0d 09 75 6e 73 69 67 6e | 65 64 20 6c 6f 6e 67 20 |..unsign|ed long |
|00000360| 68 69 3b 0d 09 75 6e 73 | 69 67 6e 65 64 20 6c 6f |hi;..uns|igned lo|
|00000370| 6e 67 20 6c 6f 3b 0d 7d | 20 55 36 34 3b 0d 0d 6c |ng lo;.}| U64;..l|
|00000380| 6f 6e 67 20 64 6f 75 62 | 6c 65 20 55 36 34 54 4f |ong doub|le U64TO|
|00000390| 4c 44 28 55 36 34 2a 20 | 6e 75 6d 62 65 72 29 3b |LD(U64* |number);|
|000003a0| 20 2f 2a 20 36 34 20 62 | 69 74 20 69 6e 74 20 2d | /* 64 b|it int -|
|000003b0| 3e 20 6c 6f 6e 67 20 64 | 6f 75 62 6c 65 20 2a 2f |> long d|ouble */|
|000003c0| 0d 76 6f 69 64 20 4c 44 | 54 4f 55 36 34 28 6c 6f |.void LD|TOU64(lo|
|000003d0| 6e 67 20 64 6f 75 62 6c | 65 20 6c 6f 6e 67 6e 75 |ng doubl|e longnu|
|000003e0| 6d 62 65 72 2c 20 55 36 | 34 2a 20 6e 75 6d 62 65 |mber, U6|4* numbe|
|000003f0| 72 29 3b 20 2f 2a 20 6c | 6f 6e 67 20 64 6f 75 62 |r); /* l|ong doub|
|00000400| 6c 65 20 2d 3e 20 36 34 | 20 62 69 74 20 69 6e 74 |le -> 64| bit int|
|00000410| 20 2a 2f 0d 6c 6f 6e 67 | 20 64 6f 75 62 6c 65 20 | */.long| double |
|00000420| 4c 44 4d 69 63 72 6f 53 | 65 63 6f 6e 64 73 28 76 |LDMicroS|econds(v|
|00000430| 6f 69 64 29 3b 20 2f 2a | 20 6d 69 63 72 6f 73 65 |oid); /*| microse|
|00000440| 63 6f 6e 64 73 20 76 61 | 6c 75 65 20 61 73 20 6c |conds va|lue as l|
|00000450| 6f 6e 67 20 64 6f 75 62 | 6c 65 20 2a 2f 0d 0d 6c |ong doub|le */..l|
|00000460| 6f 6e 67 20 64 6f 75 62 | 6c 65 20 55 36 34 54 4f |ong doub|le U64TO|
|00000470| 4c 44 28 55 36 34 2a 20 | 6e 75 6d 62 65 72 29 20 |LD(U64* |number) |
|00000480| 7b 0d 09 6c 6f 6e 67 20 | 64 6f 75 62 6c 65 20 64 |{..long |double d|
|00000490| 68 69 2c 20 64 6c 6f 3b | 0d 09 64 68 69 20 3d 20 |hi, dlo;|..dhi = |
|000004a0| 28 6c 6f 6e 67 20 64 6f | 75 62 6c 65 29 20 6e 75 |(long do|uble) nu|
|000004b0| 6d 62 65 72 2d 3e 68 69 | 3b 0d 09 64 68 69 20 3d |mber->hi|;..dhi =|
|000004c0| 20 64 68 69 20 2a 20 34 | 32 39 34 39 36 37 32 39 | dhi * 4|29496729|
|000004d0| 36 2e 30 3b 0d 09 64 6c | 6f 20 3d 20 28 6c 6f 6e |6.0;..dl|o = (lon|
|000004e0| 67 20 64 6f 75 62 6c 65 | 29 20 6e 75 6d 62 65 72 |g double|) number|
|000004f0| 2d 3e 6c 6f 3b 0d 09 72 | 65 74 75 72 6e 20 64 68 |->lo;..r|eturn dh|
|00000500| 69 20 2b 20 64 6c 6f 3b | 0d 7d 0d 0d 76 6f 69 64 |i + dlo;|.}..void|
|00000510| 20 4c 44 54 4f 55 36 34 | 28 6c 6f 6e 67 20 64 6f | LDTOU64|(long do|
|00000520| 75 62 6c 65 20 6c 6f 6e | 67 6e 75 6d 62 65 72 2c |uble lon|gnumber,|
|00000530| 20 55 36 34 2a 20 6e 75 | 6d 62 65 72 29 20 7b 0d | U64* nu|mber) {.|
|00000540| 09 6c 6f 6e 67 20 64 6f | 75 62 6c 65 20 71 75 6f |.long do|uble quo|
|00000550| 74 69 65 6e 74 3b 0d 09 | 6e 75 6d 62 65 72 2d 3e |tient;..|number->|
|00000560| 68 69 20 3d 20 28 75 6e | 73 69 67 6e 65 64 20 6c |hi = (un|signed l|
|00000570| 6f 6e 67 29 20 28 6c 6f | 6e 67 6e 75 6d 62 65 72 |ong) (lo|ngnumber|
|00000580| 20 2f 20 34 32 39 34 39 | 36 37 32 39 36 2e 30 29 | / 42949|67296.0)|
|00000590| 3b 0d 09 71 75 6f 74 69 | 65 6e 74 20 3d 20 28 6c |;..quoti|ent = (l|
|000005a0| 6f 6e 67 20 64 6f 75 62 | 6c 65 29 20 6e 75 6d 62 |ong doub|le) numb|
|000005b0| 65 72 2d 3e 68 69 3b 0d | 09 6e 75 6d 62 65 72 2d |er->hi;.|.number-|
|000005c0| 3e 6c 6f 20 3d 20 28 75 | 6e 73 69 67 6e 65 64 20 |>lo = (u|nsigned |
|000005d0| 6c 6f 6e 67 20 29 20 28 | 6c 6f 6e 67 6e 75 6d 62 |long ) (|longnumb|
|000005e0| 65 72 20 2d 20 28 71 75 | 6f 74 69 65 6e 74 2a 34 |er - (qu|otient*4|
|000005f0| 32 39 34 39 36 37 32 39 | 36 2e 30 29 29 3b 0d 7d |29496729|6.0));.}|
|00000600| 0d 0d 6c 6f 6e 67 20 64 | 6f 75 62 6c 65 20 4c 44 |..long d|ouble LD|
|00000610| 4d 69 63 72 6f 53 65 63 | 6f 6e 64 73 28 76 6f 69 |MicroSec|onds(voi|
|00000620| 64 29 20 7b 0d 09 55 6e | 73 69 67 6e 65 64 57 69 |d) {..Un|signedWi|
|00000630| 64 65 20 6d 69 63 72 6f | 54 69 63 6b 43 6f 75 6e |de micro|TickCoun|
|00000640| 74 3b 0d 09 4d 69 63 72 | 6f 73 65 63 6f 6e 64 73 |t;..Micr|oseconds|
|00000650| 28 26 6d 69 63 72 6f 54 | 69 63 6b 43 6f 75 6e 74 |(&microT|ickCount|
|00000660| 29 3b 0d 09 72 65 74 75 | 72 6e 20 55 36 34 54 4f |);..retu|rn U64TO|
|00000670| 4c 44 28 28 55 36 34 2a | 29 20 26 6d 69 63 72 6f |LD((U64*|) &micro|
|00000680| 54 69 63 6b 43 6f 75 6e | 74 29 3b 0d 7d 0d 00 00 |TickCoun|t);.}...|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000710| 28 0d 09 75 6e 73 69 67 | 6e 65 64 20 6c 6f 6e 67 |(..unsig|ned long|
|00000720| 20 68 69 3b 0d 09 75 6e | 73 69 67 6e 65 64 20 6c | hi;..un|signed l|
|00000730| 05 55 36 34 2e 63 02 00 | 00 00 54 45 58 54 4d 50 |.U64.c..|..TEXTMP|
|00000740| 53 20 01 00 ff ff ff ff | 00 00 00 00 3a 18 00 00 |S ......|....:...|
|00000750| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 ad e2 b1 7e 00 00 | 06 0e 00 00 01 ac 69 20 |.....~..|......i |
|00000780| 3d 20 28 6c 6f 6e 67 20 | 64 6f 75 62 6c 65 29 20 |= (long |double) |
|00000790| 6e 75 6d 62 65 72 2d 3e | 68 69 3b 0d 09 64 68 69 |number->|hi;..dhi|
|000007a0| 20 3d 20 64 68 69 20 2a | 20 34 32 39 34 39 36 37 | = dhi *| 4294967|
|000007b0| 32 39 36 2e 30 3b 0d 09 | 64 6c 6f 20 3d 20 28 6c |296.0;..|dlo = (l|
|000007c0| 6f 6e 67 20 64 6f 75 62 | 6c 65 29 20 6e 75 6d 62 |ong doub|le) numb|
|000007d0| 65 72 2d 3e 6c 6f 3b 0d | 09 72 65 74 75 72 6e 20 |er->lo;.|.return |
|000007e0| 64 68 69 20 2b 20 64 6c | 6f 3b 0d 09 0d 7d 0d 0d |dhi + dl|o;...}..|
|000007f0| 76 6f 69 64 20 4c 44 54 | 4f 55 36 34 28 6c 6f 6e |void LDT|OU64(lon|
|00000800| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 69 67 6e |...H..Ge|neva.ign|
|00000810| 03 df 7e 60 6f 6e 67 20 | 6c 6f 3b 0d 7d 20 55 36 |..~`ong |lo;.} U6|
|00000820| 34 3b 0d 0d 0d 6c 00 03 | 00 08 00 41 00 b2 02 27 |4;...l..|...A...'|
|00000830| 02 76 00 41 00 b2 02 27 | 02 76 b0 5f 58 a0 00 00 |.v.A...'|.v._X...|
|00000840| 00 a2 00 00 02 bb 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|00000850| 00 41 00 b2 02 27 02 76 | 00 41 00 b2 02 27 02 76 |.A...'.v|.A...'.v|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 03 d6 |.....n..|.n...>..|
|00000880| 71 38 26 32 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |q8&2....|.>..MPSR|
|00000890| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 03 f0 ff ff 00 00 00 4c | 03 d7 cc 4c 00 00 00 00 |.......L|...L....|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+